home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 38
/
Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso
/
-seriously_amiga-
/
misc
/
ced_html
/
html
/
cedmacros.ced
next >
Wrap
Text File
|
1999-01-25
|
3KB
|
63 lines
/*
** html.ced
**
** $VER: html.ced 1.6 (01.07.1999)
**
** Arexx script to load HTML v3.2 set of macro definitions
**
** This script works with CygnusEd Professional v4.2
**
** Copyright © Eric BELLE
*/
/*
**------------------------------------------------------------------------------
** Initialisation
**------------------------------------------------------------------------------
*/
OPTIONS RESULTS /* Tell CygnusEd to return results. */
NL = '0A'X /* Alias for new line. */
KRETURN = RAWKEY 68 /* Shortcut to the return key. */
KTAB = RAWKEY 66 /* Shortcut to the tab key. */
STATUS TABSARESPACES /* Return TAB mode ("tab" or "space"). */
IF RESULT = 1 /* Test the TAB mode. */
THEN "TABS = SPACES" /* Switch TAB mode from "space" to "tab". */
ELSE NOP /* No operation. */
TAB SIZE 1 /* Set TAB size proportional to 2 spaces. */
/*
**------------------------------------------------------------------------------
** Load HTML CygnusED shortcuts
**------------------------------------------------------------------------------
*/
LOAD DEFINITIONS "CED_HTML:cedmacros.html"
IF (RESULT=0)
THEN OKAY1 "The file CED_HTML:cedmacros.html does not exist"
ELSE OKAY1 ,
"CygnusED HTML Shortcuts v1.6: " || NL ||,
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~ " || NL ||,
"[ctrl]+[shift]+m main structure | [ctrl]+[alt]+t table structure " || NL ||,
"[ctrl]+[shift]+t title | [ctrl]+[alt]+c » caption " || NL ||,
"[ctrl]+[shift]+f font options | [ctrl]+[alt]+h » header cell " || NL ||,
"[ctrl]+[shift]+a text aspect | [ctrl]+[alt]+d » default cell " || NL ||,
"[ctrl]+[shift]+p paragraph | [ctrl]+[alt]+a anchor " || NL ||,
"[ctrl]+[shift]+s sub paragraph | [ctrl]+[alt]+m map " || NL ||,
"[ctrl]+[shift]+l list structure | [ctrl]+[alt]+s » sensible area " || NL ||,
"[ctrl]+[shift]+g glossary | [ctrl]+[alt]+l link " || NL ||,
"[ctrl]+[shift]+[return] new line | [ctrl]+[alt]+i image " || NL ||,
"[ctrl]+[shift]+n no new line | [ctrl]+[alt]+f formular " || NL ||,
"[ctrl]+[shift]+b horizontal bar | [ctrl]+[alt]+1 » single line " || NL ||,
"[ctrl]+[shift]+c comments | [ctrl]+[alt]+2 » several line " || NL ||,
"[ctrl]+[shift]+i iso latin 1 | [ctrl]+[alt]+3 » list " || NL ||,
"[ctrl]+[shift]+1 center | [ctrl]+[alt]+4 » button "
/*
**------------------------------------------------------------------------------
** End of cedmacros.ced Arexx script
**------------------------------------------------------------------------------
*/
EXIT 0